Clase 5: Shiny

Recordemos

expandir para código

if(!require(showtext)){install.packages("showtext")}
if(!require(ggplot2)){install.packages("ggplot2")}

# Activar showtext
showtext_auto()

# Agregar la fuente Oswald desde Google Fonts
font_add_google(name = "Oswald", family = "Oswald")

library(ggplot2)

# Crear los datos
data <- data.frame(
  xstart = c(0, 0.2, 0.4, 0.6, 0.8),
  xend = c(0.2, 0.4, 0.6, 0.8, 1),
  ystart = rep(0, 5),
  yend = rep(1, 5),
  labels = c("Solo publicación", "Código", "Código y datos",
             "Código y datos\nejecutables", "Replicación\ncompleta")
)

# Colores personalizados desde oscuro a claro
#colors <- c("#555555", "#777777", "#999999", "#bbbbbb", "#dddddd")
colors <- c("#4D4D4D", "#B03A2E", "#E74C3C", "#F1948A", "#FADBD8")

# Crear el gráfico
ggplot() +
  # Dibujar las áreas
    geom_rect(data = data, aes(xmin = xstart, xmax = xend, ymin = ystart, ymax = yend, fill = labels), color = NA) +
  scale_fill_manual(values = colors) +
  # Agregar las etiquetas dentro de las áreas
  geom_text(data = data, aes(x = (xstart + xend) / 2, y = 0.5, label = labels), size = 6, family = "Oswald", color = "black") +
  # Agregar flecha de reproducibilidad
  annotate("segment", x = 0, xend = 1, y = -0.1, yend = -0.1, arrow = arrow(type = "closed", ends = "both"), color = "gray") +
  annotate("text", x = 0.05, y = -0.15, label = "No\nreproducible", size = 5, hjust = 0.5, color = "#555555") +
  annotate("text", x = .95, y = -0.15, label = "Estándar\nde oro", size = 5, hjust = 0.5, color = "#555555") +
  # Ajustar límites y tema
  scale_x_continuous(limits = c(0, 1), expand = c(0, 0)) +
  scale_y_continuous(limits = c(-0.2, 1), expand = c(0, 0)) +
  theme_void() +
  theme(
    legend.position = "none",
    text = element_text(family = "Oswald"),
    plot.background = element_rect(fill = "#ffffff", color = NA)
  )

Qué es Shiny?

Shiny es un paquete de R que permite construir aplicaciones web interactivas.
Ideal para la visualización de datos y análisis interactivos.
No requiere conocimientos avanzados de HTML o JavaScript.
Permite transformar análisis en herramientas interactivas.
Fácil integración en presentaciones con Quarto.
Ideal para comunicar hallazgos de manera dinámica.

Ejemplo

expandir para código

if(!require(shiny)){install.packages("shiny")}

ui <- fluidPage(
  titlePanel("Ejemplo Shiny"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("num", "Elige un número:", 1, 100, 50)
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    hist(rnorm(input$num), col = "red", border = "white")
  })
}

shinyApp(ui, server)

Shiny applications not supported in static R Markdown documents

Algunos ejemplos externos

Primer ejemplo, clases UDP. Necesito saber cuánto saben de R, pero también mostrarle las potencialidades. Entonces al inicio del curso hice una encuesta con shinysurveys y googlesheets4. Pero al margen de esto, puede ser super útil para hacer encuestas mega personalizadas, a veces introduciéndoles condicionales, etc. Ojo que se supone que Shiny por sí mismo no almacena información que el usuario ingrese. Se supone. Por eso lo integré con un spreadsheet de google.
Segundo ejemplo, más antiguo. Tenía una jefa que siempre que la veía me pedía que le entregara asociaciones distintas de su base de datos formateada para trabajar con muestras complejas. Es por eso que creé un módulo para analizar asociaciones bivariadas con jsmodule (principalmente a resultados médicos). Por ejemplo, con fidelius usted le puede poner una clave a su aplicación.
Colaboré un tiempo con el centro de estudios de la mujer, que era un centro muy antiguo y con personas de reputada trayectoria pero bastante tradicionales. Lo que ocurría es que la encuestadora siempre les pasaba los datos en formato Stata, y me pedían siempre que se los convirtiera a sav (SPSS). Entonces tuve que crear una para eso. Para eso usé rio para que las señoras suban la base original y esta aplicación las transformara.
No tengo una referencia directa de trabajos míos con esto porque es muy pesado y lo tuve que borrar. Pero esta aplicación es super útil para hacer a veces modelos multivariados (ej., regresiones ajustando por muchas variables o añadiendo muchos predictores)
OJO: De todas formas, siempre tengan cuidado con quien comparten sus datos cuando ingresan a un shiny

Componentes

UI
SERVER

Manos a la obra

Acceda aquí

Fuentes

Mendez Carlos (2020). An interactive exploration of panel data: Using the package ExPanDaR to generate interactive web applications. R Studio/RPubs. Available at https://rpubs.com/quarcs-lab/explore-panel-interactively
Chang, W., Borges Ribeiro, B., & Grolemund, G. (2023). Mastering Shiny: Building Interactive Applications in R. O’Reilly Media.
Wickham, H., Chang, W., Henry, L., Pedersen, T., Takahashi, K., Wilke, C., … & Yutani, H. (2023). Shiny: Web Application Framework for R. Disponible desde https://shiny.rstudio.com/.